home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64 / imperium ii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  149 lines
  1. 1 rem********vc-20+8k*******
  2. 2 rem*  imperium romanum   *
  3. 3 rem*   geschrieben von   *
  4. 4 rem*   ralf trabhardt    *
  5. 5 rem* philippsbergstr.45  *
  6. 6 rem*  6200   wiesbaden   *
  7. 7 rem*  tel. 06121/523970  *
  8. 8 rem***********************
  9. 9 print"[147][144]"
  10. 10 poke650,128:o1=24:gosub5000:poke650,0
  11. 15 f=33792:u=37151
  12. 20 ja=395
  13. 25 poke36878,15
  14. 30 j=4108:m=4558:n=4579
  15. 35 dima(26),b(26),k1(26),k2(26),bw(26)
  16. 40 forl=1to20:reada(l):nextl
  17. 45 fori=1to15:readb(i):nexti
  18. 50 fori=1to5:readk(i):nexti
  19. 98 fori=1to20:k1(i)=70:k2(i)=100:nexti
  20. 100 rem*erstellen der karte*
  21. 110 poke36869,205:print"[147][144]          [188][189]hijf[146]@@@@@@mnopqrs[146]   [187][190]gk[146] e[146]@@@@@@";
  22. 120 print"tuvwxyz[146]   [186][191] bcd[146]@@@@@@";
  23. 125 print"[\]^_![146]  [183][184][185]@@a[146]@@@@@@@@       [182]@@@@@@@@@@@@@@";
  24. 130 print"    [171] a[181]@@@@@@@@@@@@@@";
  25. 131 print"  edcb@@@@@@@@@@@@@@@@";
  26. 132 print"   f@@@@@@@@@@@@@@@@@@   g@@@@@@@@@@@@@@@@@@   h@@@@@@@@@@@@@@@@@@";
  27. 135 print"m  i@@@@@@@@@@@@@@@@@[217]@lkj@@@@@@@:@@@@@@@@@[216]";
  28. 140 print"@@@@@@@@yz@9;@@@@@@@[215] @@@@@uwx[173][@_<@@@@@@@[214] ";
  29. 150 print"@@@stv  [164][177]\^>=@@@@@@[213] @@@r    [165][166]]@[207] ?@@@@@[212] ";
  30. 160 print"@@q [162][163]  [168][167] !@# [192]@@[206]@[211][210]@op     [169][170]  [175]$%[193]@[204][205][208][209]@";
  31. 170 print"n[172]          [223]& [194]@[203] [218]@@876543120 ,+(' [196][195][201][202][219]@@";
  32. 180 print"@@@@@@@@/.[223]*)   [197][200][161][223][220]@@@@@@@@@@-      [198][199]  [255][176]";
  33. 181 fori=4580to4601:pokei,0:pokei+f,o2:nexti
  34. 182 poke4168,162
  35. 200 fori=1to20:ifk1(i)>0thenpokea(i),34
  36. 201 ifk2(i)>0andb(i)>0thenpokeb(i),115
  37. 205 nexti
  38. 210 fori=1to5:ifk(i)>6thenpokek(i),110:nexti
  39. 220 fa=4326:p1=peek(fa)
  40. 300 rem
  41. 310 ifg1=1org1=2then500
  42. 320 gosub3000
  43. 322 rem*bewegung des fadenkreuzes*
  44. 325 p2=peek(fa-22):ifp2<>32thensr=1
  45. 327 iffa<4118thensr=0
  46. 330 ifu2=1andsr=1thenpokefa,p1:fa=fa-22:p1=p2:goto400
  47. 335 p3=peek(fa+22):ifp3<>32thensr=2
  48. 336 iffa>4557thensr=0
  49. 340 ifu4=1andsr=2thenpokefa,p1:fa=fa+22:p1=p3:goto400
  50. 345 p4=peek(fa-1):ifp4<>32thensr=3
  51. 346 iffa=morfa=m-22orfa=m-44orfa=m-66orfa=m-88orfa=m-198orfa=m-220orfa=m-242thensr=0
  52. 350 ifu1=1andsr=3thenpokefa,p1:fa=fa-1:p1=p4:goto400
  53. 355 p5=peek(fa+1):ifp5<>32thensr=4
  54. 356 iffa=norfa=n-22orfa=n-44orfa=n-66orfa=n-88orfa=n-110orfa=n-220orfa=n-242thensr=0
  55. 357 iffa=n-264orfa=n-418orfa=n-440orfa=n-462thensr=0
  56. 360 ifu3=1andsr=4thenpokefa,p1:fa=fa+1:p1=p5:goto400
  57. 365 fori=1to20:ifa(i)=faandz=0thenf1=1:goto370
  58. 366 ifz=1andb(i)=fathenf1=2:goto370
  59. 367 nexti
  60. 370 ifsc=1andf1=1theng1=1:f1=0:poke36876,250:poke36876,0:goto400
  61. 375 ifsc=1andf1=2theng1=2:f1=0:poke36876,250:poke36876,0:goto400
  62. 380 geta$
  63. 385 ifa$<>""thenpoke198,0:goto800
  64. 400 pokefa,114:sr=0:f1=0
  65. 450 goto300
  66. 480 rem*bewegung der legionen*
  67. 500 ifz=0thenx=a(i)
  68. 501 ifz=1thenx=b(i)
  69. 502 gosub3000
  70. 505 w2=peek(x-22):ifw2<>32andw2<>34andw2<>115thensw=1
  71. 507 ifx<4118thensw=0
  72. 510 ifu2=1andbw(i)<2andsw=1thenpokex,w1:x=x-22:bw(i)=bw(i)+1:w1=w2:goto600
  73. 515 w3=peek(x+22):ifw3<>32andw3<>34andw3<>115thensw=2
  74. 517 ifx>4557thensw=0
  75. 520 ifu4=1andbw(i)<2andsw=2thenpokex,w1:x=x+22:bw(i)=bw(i)+1:w1=w3:goto600
  76. 521 w4=peek(x-1):ifw4<>32andw4<>34andw4<>115thensw=3
  77. 525 ifx=morx=m-22orx=m-44orx=m-66orx=m-88orx=m-198orx=m-220orx=m-242thensw=0
  78. 530 ifu1=1andbw(i)<2andsw=3thenpokex,w1:x=x-1:bw(i)=bw(i)+1:w1=w4:goto600
  79. 532 w5=peek(x+1):ifw5<>32andw5<>34andw5<>115thensw=4
  80. 535 ifx=norx=n-22orx=n-44orx=n-66orx=n-88orx=n-110orx=n-220orx=n-242orx=n-264thensw=0
  81. 540 ifu3=1andbw(i)<2andsw=4thenpokex,w1:x=x+1:bw(i)=bw(i)+1:w1=w5:goto600
  82. 600 ifz=0thenpokex,34:a(i)=x
  83. 610 ifz=1thenpokex,115:b(i)=x
  84. 615 fory=1to5:ifb(i)=k(y)thenk(y)=5:poke36875,150:be=be+1:ifbe>=4thenbe=0:goto2000
  85. 616 poke36875,0:nexty
  86. 620 sw=0:p1=0
  87. 630 ifsc=1theng1=0:w1=0:poke36876,200:poke36876,0:goto300
  88. 700 goto502
  89. 800 z=z+1:ifz>1thenz=0:zt=zt+1
  90. 801 ifzt<>9then805
  91. 802 forbo=1to25:ifa(bo)>0thenk1(bo)=k1(bo)+100
  92. 803 ifb(bo)>0thenk2(bo)=k2(bo)+70
  93. 804 nextbo
  94. 805 ifzt>=25then2500
  95. 810 fort=1to20
  96. 815 poke36874,130+t*2
  97. 819 fort2=1to15
  98. 820 ifa(t)+22=b(t2)ora(t)-22=b(t2)ora(t)-1=b(t2)ora(t)+1=b(t2)then840
  99. 830 goto860
  100. 840 tr=int(rnd(1)*20)+1:k1(t)=k1(t)-tr:ifk1(t)<=0thenpokea(t),116:a(t)=0
  101. 850 tl=int(rnd(1)*20)+1:k2(t2)=k2(t2)-tl
  102. 855 ifk2(t2)<=0thenpokeb(t2),140:b(t2)=0
  103. 860 nextt2
  104. 870 nextt
  105. 880 poke36874,0
  106. 1000 fort=1to25:bw(t)=0:nextt
  107. 1010 g1=0:w1=0
  108. 1015 poke36869,192:print"[147]wir befinden uns im"
  109. 1016 print"jahre "ja+zt" n. chr."
  110. 1017 gosub5000
  111. 1020 goto110
  112. 2000 rem*sieg der germanen*
  113. 2010 poke36875,0:poke36869,192:poke36879,25:print"[147]"
  114. 2100 print"das roemische imperiumliegt am boden !"
  115. 2110 print"die germanen haben    haben sie wegen ihrer fuehrungsfaehigkeiten"
  116. 2120 print"zum koenig auf lebens-zeit ernannt."
  117. 2130 print"(das ist eine grosse  ehre,wenn man bedenkt,dass bald die hunnen"
  118. 2140 print"kommen)!!"
  119. 2150 goto2640
  120. 2490 rem*sieg der roemer*
  121. 2500 poke36869,192:poke36879,25:print"[147]":
  122. 2600 print"das roemische imperiumkonnte diesen klaeg-  lichen versuch einer"
  123. 2610 print"horde barbaren laessigabwehren."
  124. 2620 print"den germanen folgendentip:"
  125. 2630 print"versucht es in hundertjahren nocheinmal!"
  126. 2640 print"neues spiel j/n ?"
  127. 2650 geta$:ifa$="j"thenzt=0:run
  128. 2660 ifa$="n"thenprint"[147]ihr seid deserteure!!!":end
  129. 2670 goto2650
  130. 3000 rem*joystickabfrage*
  131. 3010 pokeu+3,127:u3=-((peek(u+1)and128)=0):pokeu+3,255
  132. 3020 u1=-((peek(u)and16)=0):u4=-((peek(u)and8)=0):u2=-((peek(u)and4)=0)
  133. 3030 sc=-((peek(37137)and32)=0)
  134. 3040 return
  135. 4990 rem*bildschirmfarben*
  136. 5000 print"waehlen sie die       bildschirmfarben:"
  137. 5001 print"f1[146] = bildschirmfarbe  f3[146] = rahmenfarbe "
  138. 5002 print"s[146]  = start"
  139. 5005 poke36879,o1+o2:geta$:ifa$="[133]"theno1=o1+16:ifo1>248theno1=24
  140. 5010 ifa$="[134]"theno2=o2+1:ifo2>7theno2=0
  141. 5020 ifa$="s"thenreturn
  142. 5030 goto5005
  143. 6000 data4192,4237,4282,4305,4306,4308,4310,4312
  144. 6010 data4255,4301,4321,4420,4460,4428,4540,4361,4557
  145. 6020 data4368,4375,4355
  146. 6030 data4173,4194,4195,4196,4217,4218,4239,4240,4241
  147. 6040 data4242,4262,4263,4264,4265,4266
  148. 6050 data4427,4544,4491,4437,4256
  149.